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فتح قاعدة بيانات: 


: عند فتح قاعدة بيانات بيرنامج أكسس2007 تظهر رسالة حجب لبعض متويات قاعدة البيانات ولالغائها‎ 
Access option # Microsoft office butt0¬ زر‎ طbخض!‎ .1 
Trust center setting # Trust center li رiخ|‎ oذفlز تظھر‎ . 
Never show information about Blocked content رlıۃخڊلl‎ bi .¥ 


i5 Center 
Trusted Publishers 
Message Bar Settings for all Office Applications 


Showing the Message Bar‏ دچ 


0 
Show the Message Bar in all applications when content has been blocked 
س‎ Settings Meret show information about blocked content 


arene 


Privacy Options 


Trusted Locations 


Add-ins 


(Enable Trust Canter logging 


وحتقى لا ينم منع تنفيذ بعض أكواد وإجراءات القاعدة وفتحها بدون الحاجة للضغط على خیار »0٥۸٤ ٩٤‏ ءاطغ ماEnab‏ الموجود في 
نافذة اھ security‏ جب وضعھا في ٣s‏ ti0ھcما‏ dعustاآ‏ وهو جلد تحفظ فيه قواعد البيانات التي تثق في حتواها. 


اققاتا ا س Trust Center‏ 


Trusted Publishers Tr SEE 


| Trusted Locations | Warning: All these locations are treated as trusted sources for opening files. If you change or add a location, make sure 
that the new location is secure. 
Adlıd-ins 
Path Description Date Modified 
User Locations 
[ ۴ EH 
Message Bar اسان‎ E & 10:58 2 
TC... Files SEN" Micros oft Office OfFicel AAC CWA, Hhrczcess default location: WYizard Databases 


Macro Settings 


Privacy Options 
Policy Locations 


"أك سا6 Path:‏ 


Description: 
Date Modified: E 10:53 ۾‎ 
Sub Folders: Allowed 
[Ada new location... | [_ Remove | [_ Modify... 


wj Allow Trusted Locations on my network [not recommended] 
| Disable all Trusted Locations. Only files signed by Trusted Publishers will be trusted. 


Enable macro ڍÎ‎ 


Trust Center 


Trusted Publishi 
rusted Publishers 2 2 


Trusted Locations 
For macros in documents not in a trusted location: 


Add-ins O Disable all macros without notification 
[macro settings @ Disable all macros with notification 
© Disable all macros except digitally signed macros 
Message Bar ® Enable all macros [nat recommended; potentially dangerous code can run] 


Privaty Options 
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@laıٺتlت Relations‏ 
لإنشاء علاقة رأس بأطراف :٥06€ -1٥- N١3١۷‏ يجب أن يكون هناك حقل مشترك بين الجدولين : 


Relationship Tools : Database (Access 2007) - Microsoft Access 


Database Tools Design 


:= |7 efresh 
اتاک‎ | 1 X Delete ” zz 
Rich Text 


ESER ESE 


Font Records 


author 


autho _name 
Birth_date 


book 
F Book_ number 

Book_name 
Author_number 
Price 
Publish date 
borrowed 
publishing house 
Department 


External Data 


Home Create 


$ Format Painter 


Views Clipboard 


All Tables 
book 


3| author : Table 


الجدولين بينهم علاقة n -t٥-" 3٣¥‏ من خلال حقل Author _numص be۲‏ ررقم المؤلف )وھو یعتبر حقل 
مفتاح اساسي فې جدول المؤلفین ۲٥ا۸‏ وحقل ثانوي 5۵٥٥۸43۲۷‏ فی جدول الکتب ۸)٥هط.‏ 


والشكل التالي يوضح العلاقه بعد تنفيذها: 
Ces‏ 


Database Tools Datasheet 


YE Selection 7 3, Replace 
Advanced ” w= Go To 7 
Filter d , 
7 ı7 Toggle Filter «} Select 7 
Sort & Filter Find 


Refresh‏ | اڪ 
a XK Delete * More” |‏ | 


Records‏ ا 


r 8 ENew E Totals |3| 4 
2 | ا‎ Î Save 2 Spelling 0 

A 

1 


Font | Rich Text 


7 E ~ | Birth_date ~ 
1512/190 
Author_nun ” | Price + Publish date < borrowed >” publishing house 
1 200.00. 0/12/10 WM دار الاد‎ 
1 300.00 ..z 1412/190 اخبار اليوم‎ 
1 
1/12/1990 


Add New Field 

محمد صن 1 
Book_name r”‏ 
الأمل والحياد 1 
عيون دامعه 2 


علي کال 2 


Table Tools » منك‎ Database (Access 2007) - Microsoft 
ی‎ 


External Data 


Lalibri 


EE EZ 


| Book_numt ” 


2 cui 

3 Copy 

J Format Painter 
| Clipboard 


4 


View 


Fr 


Paste 


Views 


author 
author: Table 


IU ONMNr? IDEN ZDP 4D > 


Handling Many-To-Many Relationships in Microsoft Access: 


Definition: Many-to-many (M:M) - is used to relate many records in the table A with many records in the table B. 
A record ('parent') in Table A can have many matching records ('children') in Table B, and a record ('child') in 
Table B can have many matching records ('parents') in Table A. 


It is the hardest relationship to understand and it is not correct. By breaking it into two one-to-many relationships 
and creating a new (junction/link) table to stand between the two existing tables will enable correct and 
appropriate relationship setting. 


A many-to-many relationship is really two one-to-many relationships with a junction/link table. 


NOTE: Link table usually has the composite Primary Key that consists of the Foreign Keys from both tables A and 
B. 


The associated database download includes an example of this. 
The data relates to storing information about Artists (Musical) and Music (Albums, Singles etc). 
The relationships can be seen below: 


tblIGenrê 
tbIAlbunî 1 
. IqgaenreD 


qAuttID IngAlbımID straenreDesrription 
str Artistame 1 اا‎ skrAlbumJamë 


IngtaenreID 
IngLabelID 


dteûlbumReleaseDate tblLabel 


1 
gl abeID 
strLabelName 
The relationships for the Artists and Albums database 


In this example, ONE ARTIST can have ONE or MANY ALBUMS and an ALBUM can have ONE or MANY ARTISTS 
related to it. 


This can be especially applicable if the ALBUM is a COMPILATION of many artists. 
The ARTIST table consists of only the Artist ID and the Artist Name (Full name). 


The ALBUM table consists of the Album ID, Album (or Single) name the Genre ID (lookup to the Genre table), the 
Label ID (lookup to the Label table) and the Album Release Date. 


The two tables are linked together by the LINK_Artist_Album table. This table contains a composite Primary Key 
containing the Artist ID and the Album ID. 


The database contains 2 main forms, where you can view Albums relating to each Artist and Artists relating to 
each Album. 


Ê Yiew Albums By Artist 6 
ûrtist ID 1 

Click To Yiew | Click To Return 
Artist Mame 1E Help Screen | To Switchboard 


Albums 


Album ID Album Marme HENrE Label Release Date 


| 3 ¬ [eaten Chemistry [Rack | is Brother > [ [107/2002 
| Ê + 1 [slated 4اد‎ [Compilatior | [Universal Music TY 3 HRETE 
| f+ 1 e Joshua Tree [Rock | [sland 1 [1/03/1987 


Record; 14 | 4 |١ 1 | * |۴| of F 


Viewing the Artist and their related Albums 
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Ê Yiew Artists By Album 


album ID BT 

Album Mame [Now That's what I Call Music! Vol. 5| 

GenrelD [ê fmn 
Label ID RRR LD ov. 


Release Date [22/07/2002 


Artists 
Artist ID Artist Name Album ID 


|_4 pH HE 
1___o EE 


lick Ta View Click Ta 
Help Screen Return Toa 
Record: | || 1 * | * || of 9 


Viewing the Album and their related Artists 


Hopefully this may make understanding the use of a Many-To-Many database relationship a little more straight 
forward. 


Please download the Microsoft Access 2000 database example file from the Microsoft Access Tables page or 
from the Microsoft Access Downloads index. 
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۴0٣٣۶ : النماذج‎ 


أول:- 0اه ا02 ۷0: وهو نموذج أو تقرير بجحب على المستخدم أن يتخذ قراراً فيه قبل أن ينتقل التر كيز على نافذه أخرى وتعتبر 
مربعات الخوار ×00 عه‌اھ0i‏ نوع من چه‌اھ¡0 اكه » وکن فتحها کالتالي: 


: Database (Access 2007] - Microsoft Access 


IRE 


Arrange 


E Labels 


fÎ_| Blank Report 
Report | Query Query Macro 
al Report Wizard Design | Wizard Design 


Reports Other 


nk Form 


Form Wizard 


Datasheet 


ک3 


Form Design Tools 


أ 
Design‏ 


3| PivatChart 


za] More Forms z= 


Hame Create | External Data‏ 1 ذ 
DM E‏ 8 ¬ 


Table Table SharePoint Table 
Templates” Lists” Design 
Tables 


Database Tools 


2F E 


Multiple rr 


Form 


@ Security Warning Certain content in the database has been di 


Tables‏ اله 


ثانياً:-الإفتراضي في 2007 40)55 أنه عند إنشاء النموذج يظهر في وضع التكبير ولذلك يجب تغيير خصائص النموذج كمايلي : 
تغیر الخیار yes dd! pop up‏ 


Page Setup | 

alreteo f \ Û # a 
Ala EO 3H4 
a Btn E d4 © 3 J 


Controls 


*% Property Sheet 


Merl RIBBLE I1 Br IQ 1 Ar 1 2 1 22 ا‎ 


Epal ¥ 


Tomei] oa, ent [omen] ^1 


Record Source 


Report Design Tools 


Menus Home Create External Data Database Tools أ‎ Menus Design Arrange 


File” Edit” View” Insert” Format” Tools” Window” Help ” 

DER AGS HERS EEA CEE 

qr BIUE3S E E 
Toolbars 

ET 

[oid drIrQrIrBrlrBrlrTrlrRrlrgr lel 

|_| E Report Header 


| aulhor 


| f Page Header 


ا 


All Access Objects 
Tables 

Î author 

2 book 


Forms 


EF Formil 


رقم امج اي 


اسم إامعة اي 
اس عر 
قاري غ التقر 
دار التق 
القس م 


الأمل والحياد 

ج.م. 200.00 
09/12/1990 
دار الحياء 


سيت 


الد إلمجتاب 


cord: i 41 1of3 تم اج *ض‎ Search 
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.١ 
۲ 


في وضع تصميم النموذج اختر أداة التصميم صuا۲0ع opti0٣١‏ 
اکتب ما ترید ظهوره مثل معار-غیر معار 
e 3‏ 


xes, or toggle buttons. You can choose only one option. 


what label do you want for each option? 


Option Group Wizard 


> SSE 


An option group contains a set of option buttons, check 
boxes, or toggle buttons. You can choose only one option. 


Ciiding an option in an option group sets the vake of the 
option group to the vakie of the selected option. 
=1 


52 What value do you want to assign to each option? What label do you want for each option? 


e :‏ 
هڪاار | 
[ 2| غير هسار _ 


Option Group Wizard 4 - 


You can either store the vakhue of a selected option in a field, 
or use the vakhye later to perform a task such as printing a 
report. 


What do you want to do with the value of a selected option? 


Save the value for later use. 


©) Store the vake in this field: 


< aut 
@ wot mont 
C N eî 

Coen aot 
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Queries pÙÛÙu—aعتull‎ 
الإستعلامات البسيطة:‎ 
500 أکبر من أو يساوي‎ <=500 .١ 
أکبر من تاربخ معین‎ <=2/2/1010 .۲ 
Like "??soft" ji Like "*“M" Jie wiاd‎ car4 البحث برموز الإستكشاف‎ .۳ 
Enter Parameter Value parametric query öةرıيغتll الإستعلامات‎ 


| Enter the name 


وهي تکتب بين قوسين منل : ]: [Enter the name‏ 


Action query 
: وتكون نتيجته إنشاء جدول أو تعديل جدول موجود سواء بالإضافه أو الحذف وأنواعه هي‎ 
استعلام إنشاء جدول‎ Make table query .۱ 
لإضافة سجلات جدیدہ لجدول معین‎ ممend‎ query 


.۲ 
Delete query .Y 


0 CD Union ت‎ Ja Insert Rows j Insert 3 (f Property Sheet 


° @ Pass-Through 2K Delet J Delet 
ete 


Show a Totals 
Data Definition | Table NBuilder Rj Return: AlN h) Parameters 


الك رMacroy:‏ 
مجموعه من الإجراءات التي تقوم تلقائيا بأداء بعض الأعمال التي تتكرر باستمرار ويتم تنفيذ هذه الإجراءات أو ال ؟٣‏ 0ا٤۸‏ على 
حسب ترتيبها داخل كل ماكرو ويمكن تنفيذ الماكرو نتيجة لحدث معين مثل الضعط على زر داخل فورم . 


الموديول عا Modu‏ :وهو basic Applications‏ اisua/‏ وله بیئة تطویر خاصه 
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عمل نموذج افتتاحي ۸١٥عا)ء‏ اءهامء 
وهو نموذج ۴0۲۳١‏ ويجب ضبط الخصائص التالية له: 


Neither 


ولكي يعمل کنموذج أُول ۴0۲۳١‏ ملا ٤4ء‏ عند تشغيل البرنامج نتبع الخطوات التالية: 
. اضخط access option # Microsoft office buttO¬ le‏ 
. من يسار الشاشة اختر current data base‏ 


. حدد النموذج الإفتتاحي كما يلي: 


Ef Access Options 


Popular 


Datasheet Application Options 


3 
:[ Options for the current database. 


Object Designers Application Title. 
Proofing Application jton- 


| | Advanced eer Report کا‎ 
Display Form: (none) | 
ا‎ 
7| Display Status { (none) 
Add-ins Document Windovy Main 
Qverlappin 


Oi Tabbed Documents 


Customize 


Trust Center 
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| Design 


Arguments 
aj Whdoaow Hide 


Action Arguments 


WrindlowrHi de 


Carries out a Microsoft Office Access menu 
command. The command must be appropriate 
for the view that is current when the macro runs 
the command. Press F1 for help on this action. 


Database Tools 


* 


Show/Hide 


External Data 
Bg 


Actions Names 


RunCommand 


Home Create 


FE single Step 3a Insert Rows 


Sx Builder 3X Delete Rows 


Run 


Tools Rows 


All Access Objects | 
Tables &8 
EH author 

a 
Queries 


المحار اع 


Forms 


book 


E] Main 
Ez 
Macros 

A aaa 

Z2 win hide 


Splash screen 


F6 = Switch panes. F1 = Help. 


ولتنفيذ إخفاء نافذة قاعدة البيانات W1 ١00W‏ 0458 هاه عند تشغيل النموذج الإفتتاحي ١٥۴٠ء‏ ءهامطء غير مايلي في 


خصائصه : 


1. On Load :hide window(gرك‎ ll «ı) 
2. On Load: hide window(رSl! )ٺم‎ 


ويجب إنشاء ماكرووا مه 2ه آخر به أمرين الأول هو إغلاق النموذج الإفتتاحي والثان ثم فتح النموذج التالي : 


1 أ 
Design‏ 


Tools” Window ” 


EE 
1 


Help ” 
r A) VAZE) Bm 


3 Formatting €0 00 


.00 0 


o 


Toolbars 


Arguments 
ash screen; Prompt 
Main; Form; ; ; ; Normal 


Comment 


Action Arguments 


Form 
Splash screen 
Prompt 


Plnese ha enarifiarl usin nus nr ha ss 


lacro Tool Database (Access 2007) - Microsoft 


Design 


Tools ” ج‎ Window ” بج‎ Help” ES 
EE CSA HHEE 
E 


| Formatting 


ا فقا | 
EE‏ 


Arguments 
Form; Splash screen; Prompt 
Main; Form; ; ; ; Normal 


Comment 


Action Arguments 


Opens a form in Form view, Design view, Print 
Preview, or Datasheet view, Press F1 for help on 


Normal this action, 


Database Tools 


Records 


Database Tools 


Records 


Create External Data 


Insert” Format ” 


REF EME REESE EET ESS 
E5 3BI U A 27 | 


Object Type 
Object Name 
Save 


Create External Data 


Insert” Format ” 


e‏ اھ س |9 ن ف دا 
SB rAd” E‏ 


Form Name 

Views 

Filter Name 
Where Condition 
Data Mode 
Window Mode 


View ” 


All” File” Edit” View” 


| Ê | Home 


All” File” Edit” 


Tables 

E author 
EH book 
Queries 
السار ع‎ 


Macras 
aa 
E win hide 


F6 = Switch panes. F1 = Help, 


خ 
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Un Apply Filter 

n Timer 

Timer Interval 

in Selection Change 
Before Render 


Toals 


ES 


| e 


Toolbars 


1.صمم نموذج وضع فيه أداة ×0 0ا0۳ ومن خصائصها حدد اسمها البر جي "2۳٠‏ وكذلك الاسم البرجي للنموذج 
2.إنشىء إستعلام واكتب فيه المعيار ويكون كما يلي: 


Query Tools شنون الطلاب جد‎ : tabe )Access 2007) - Microsoft Acces 


Menus Design‏ أ 


Database Tools 


Window ” Help ” 


N 28|| f fr 


department 1 leve 
student student 
Group By uroup By 


[Forms]! [levelquery]! [comb a2] 


ماداق اس الودج 
[Forms]![levelquery]![combo2]‏ 
3.كتب الحدث البرجي التالي خلف أداة 0ط ٣٥ع‏ وذلك بالضغط عليها بالزر الأعن غ ٥۷ء‏ إاأںط 
Private Sub Combo2_changeo‏ 
"مابين القوسين هو اسم الإستعلام المطلوب فتحه 
DoCmd.OpenQuery "hala"‏ 
Me.Combo2"" =‏ 


"الأمر التالي يغلق النموذج بعد تنفيذالإستعلام 


student 
troup By 


External Data 


y” Tools” 


SEEK ESES 


EEE 


Toolbars 
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Form_halaquery.Visible = False 
End Sub 


4.عند الضغط على الأداة تقوم بعرض العناصر الموجودة هما وذلك بتحديد الحقل من الجدول عن طرق الضغط على الأداة نم خصائص غ 
من تبويب ه03 اضغط على الزر اجاور للأمر R۸0۷ 501۲٣٥‏ 


I ud MIMI ae mme 
ومن النافذة التي تظهر حدد الجدول ثم اسحب الحقل إلى إسفل:‎ 


*& | Property Sheet 
Selection type: Field List Properties 


ملاحظه: اقوى برنامج معمول بالاكسس لايمكن جاينة الا بتحويله الى ملف 0٥‏ فيما بخص الاكسس 2007 اما بالدسبة 
الى اكسس 2003 فيجب تويله الى ملف عل" وفي الحالتين لايمكن التعديل عليهما . 
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12 


كيف جعل كسس يعمل ني :Multi user interface iia‏ 


.١‏ افتح قاعدة البيانات المطلوبة 


access options ¢ Microsoft office bDut(0n اضغط عى زر‎ .1 


۳. اضغط على advanced‏ 
.٤‏ تأكد من الإعدادات التالية 


ETIKETF TIE EEE 


Bottom margin: |0.635cm 


General 


Show add-in user interface errors 
Provide feedback with sound 
Use four-digit year formatting 

This database 

E All databases 


Web Options... 


Advanced 


Open last used database when Access starts 
Default open mode 
Shared 
O Exclusive 
Default record locking 


O No lacks 


#All records 


lW| Open databases by using record-level locking 
OLE/DDE timeout (sec: 30 

Refresh interval [sec: چ‎ 

Number of update retries: چ‎ 

ODBC refresh interval (sed: چ‎ 

Update retry interval (msec: چ‎ 

DDE operations: 


E Ignore DDE requests 
| Enable DDE refresh 


Lommand-line arguments: 


Access Options 


Popular 
Current Database 
Datasheet 
Object Designers 
Proofing 
ane) 
Customize 
Add-ins 
Trust Center 


Resources 
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إنشاء غوذج إدخال كلمة سر : 


: إنشىء جدول به الحقول العالية‎ .١ 


EH tbIEmployees 
| Data Type | Description 
3 | IngEmpID AutoN umber Employee ID Number 


|strEm gName Text Employee Name (first) 
strEmpPassword Text Employee Password 


| straccess Text Employee Access Level 


Field Properties 


General Lookup 


Field Size 
Forrla 


Default Value 
Walidation Rule J field name can be up to 64 characters long, 
Validlation Text including spaces. Press F1 for help on field 
Required Tames 

Allow Zero Length 

Indexed 

Unicode Compression 

IME Mode No Control 
IME Sentence Mode None 
Smart Tags 


۲. لا تسى إضافة kكھص input‏ قل rEmpPpPasswordاtء‏ حت تظھر الحروف علی شکل نرہ *****٭**** 
۳. صمم اللموذج بالشکل التالي : 


أدخل اسم المستاحدم 


كلمة السر 


: ضع الأمر التالی‎ cطoEmpاoy‎ ee خلف أداة ×0 ط0 طہتc رامھا‎ .٤ 


SELECT [tblEmployees].[IngEMpID], [tblEmployees].[strEmpName] FROM 
tblEmployees; 


ه. لاحظ أن الخاصية 1= ١دصسuآهء‏ Q«سهط‏ ليظهر فقط اسم المستخدم وليس باقي الحقول معه 


: اكتب الكود التالي خلف الزر الموجود‎ .٦ 


Option Compare Database 
Private intLogonAttempts As Integer 
Private Sub Form_Open(Cancel As Integer) 


'On open set focus to combo box 


Me.cboEmployee.SetFocus 
End Sub 


Private Sub cboEmployee_AfterUpdatedo 


'After selecting user name set focus to password field 
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Me.txtPassword.SetFocus 
End Sub 


Private Sub cmdLogin_clickO 
'Check to see if data is entered into the UserName combo box 
If ISNull(Me.cboEmployee) Or Me.cboEmployee = "" Then 
MsgBox "aختdl ,"ب lإaخJi اسم‎ vbOKOnly, "Required Data" 
Me.cboEmployee.SetFocus 


Exit Sub 
End If 


'Check to see if data is entered into the password box 
If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then 
MsgBox "رسJا‎ anl Jtخaإ‎ mz", vbOKOnly, "Required Data" 
Me.txtPassword.SetFocus 


Exit Sub 
End If 
'Check value of password in tblEmployees to see if this matches value chosen in combo box 
If Me.txtPassword. Value = DLookup(""strEmpPassword", "tblEmployees", "[IngEmpID]=" & 
Me.cboEmployee. Value) Then 
IngMyEmpID = Me.cboEmployee. Value 
'Close logon form and open splash screen 
DoCmd.Close acForm, "frmLogon" 
DoCmd.OpenForm "ain" النموذج الأساسي‎ 
Else 
MS£ 80× ,"'كلمة السر غير صحيحة حاول مرة ثانية"‎ 0K 0nly, "valid Entry"! 
Me.txtPassword.SetFocus 
End If 
'If User Enters incorrect password 3 times database will shutdown 
intLogonAttempts = intLogonAttempts + 1 
If intLogonAttempts > 3 Then 
Msg 80× ,"لا كىك الدخول اتصل مدير البرنامج"‎ vbOCritical, "Restricted Access"! 
Application.Quit 
End If 
End Sub 


۷. بعد تنفيذ الكود يتم فتح النموذج الأساسي للبرنامج 
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البحث عن بيانات من خلال اخنيار عنصر ئي ×0ط 0طاصہهع: 


.١‏ ضع الأداة ×0ط 0مطاصهKع‏ رمن خصائصه ع٥۴٣٤۲ R0W S011‏ حدد الحقل في الجدول الذي ستظهر من العناصر وليكن اسم الطالب 


Rou Source JM student: flr 
SELECT student.stuname FROM student 
after update iدح راکتب الكود اتال خلف‎ Build Event ê €٥" اضغط بالزرالأعن على الأدة >50 0ط‎ .۲ 


Private Sub Combo177_AfterUpdate() 
'The AfterUpdate event procedure used in' 
'the Find student combo box search' 
' Moves to student Name text box and 
finds the record of whatever name is selected in the combo box 
DoCmd.ShowAllRecords 
Me!stuname.SetFocus 
DoCmd.FindRecord Me!Combo177 
Set value of combo box equal to an empty string 
Me!Combo177.Value="" 
End Sub 
إدخال صور في قاعدة البيانات:‎ 
لأن ذلك يزيد من حجم قاعدة البيانات فلك أن تغخيل كل‎ 0٤ ليس من الحكمة إدراج الصورة في قاعدة البيانات كاءع زط0‎ 
معهص! في الجدول واستخدام‎ ۴a1 صورة يتم تخزينها في الجدول ولذلك بفضل عدم حفظ الصورة وإنغا حفظ مسار الصورة فقط‎ 
: الأداة 01ه) معه"[1 على النموذج لعرض الصور كما يلي‎ 


۱. إنشیء جدول به حقل امه 1٤۹م ]mage‏ من نوع tex‏ 
۲. أدخل المسار ففط للصور من نوع م8 في الجدول في وضع {٤عطء (5ata‏ 


c\windows\circles.bmp 
| cî\windows\waves.bmp 


| c\windows\tiles.bmp 


c\windows\bubbles.bmp 
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Imageframe le; Image control öادÎ إنشىء نموذج وأضف عليه‎ .۳ 


: تحت خاصية ۲۲۴14»ا٥0N للنموذج اكتب الكود التالي‎ .٤ 


Private Sub Form_CurrentO 


On Error Resume Next 
Me![ImageFrame].Picture = Me![ Text3] 
End Sub 
: الکود التالی‎ A ftمآ ه. أضف للنموذج ×80 ×۴ واكتب خلف الخاصية ٤٤ھ لمل‎ 


Private Sub Text3_BeforeUpdate(Cancel As Integer) 
On Error Resume Next 
Me![Text3].Picture = Me![Text3] 

End Sub 


كتابة الحرف الأول فعظهر قائمة بالأسماء التي تبدأ بالحرف: 


Private Sub ser KeyUp (KeyCode As Integer, Shift As Integer) 
DoCmd.ApplyFilter , "customer name like '*" & [Forms]! [FormName] ! [ser] & "*'" 
End Sub 


حيث يتم كتابة اي اسم او جزء من الاسم للسجل أو مجموعة السجلات للحقل [1۴ ٠۴۲١_14‏ 0ءuء]‏ في مربع النص المسمى [۲ع؟] داخل النموذج 
[n2m۴صاهf‏ ]يث يکون مصدر السجل للنموذج [۵1۴٣۲٣1آ۲٥0]‏ هو الجدول الذي به حقل ١۴۲_141١8[‏ 0ء٠‏ ] والذي نقوم بالبحث عنه 


ومن الافضل ان تكون طريقة العرض الافتراضية للنموذج هو نماذج مستمرة حقى اذا كتبت مغلا [حمد] يظهر محمد و احمد ومد وحمدان 


Go To End رl!‎ Je pleBehaviouring Entering Field !لطر‎ Jal ê Keyboard ê Option # Tools للعلم ... اذهب ال‎ 
Of Field 
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إخفاء شاشة كسس عن تشغيل النموذج: 


1.انشیء وحده نمطیه عاں "٥۵‏ و مها عا تشاء وضع فيها الكود التالي : 


Compare Database 
Explicit 


Const SW _HIDI 
Const SW_SHOWNORMAL 
Const SW_SHOWMINIMIZ] 
Const SW_SHOWMAXIMIZ] 


Il 
اا‎ 


= 2 
3 


Û 


اا 
Û‏ 


rivate Declare Function apiShowWindow Lib "user32" _ 
Alias "ShowWindow" (ByVal hwnd As Long, 
ByVal nCmdShow As Long) As Long 


Function fSetAccessWindow (nCmdShow As Long) 
"Usage Examples 
"Maximize window: 
?fSetAccessWindow (SW_ SHOWMAXIMI Z1 
‘Minimize window: 
?fSetAccessWindow (SW_SHOWMINIMI Z1 
ide window: 
?fSetAccessWindow (SW HIDE) 
"Normal window: 
?fSetAccessWindow (SW_ SHOWNORMAL ) 


lox As Long 
loForm As Form 
On Error Resume Next 
Set loForm = Screen.ActiveForm 
If Err <> 0 Then 'no Activeform 
If nCmdShow = SW HIDE Then 
'MsgBox "Cannot hide Access unless " | 
& "a form is on screen" 


Else 
loX = apiShowWindow (hWndAccessApp, nCmdShow) 
Err.Clear 
End If 
Else 
If nCmdShow = SW SHOWMINIMIZED And loFrorm.Modal = True Then 
"MsgBox "Cannot minimize Access with " | 
& (loForm.Caption + " ") 
& "form on screen" 
Elself nCmdShow = SW HIDE And loForm. PopUp <> True Then 
"MsgBox "Cannot hide Access with " 
& (loForm.Caption + " ") 
& "form on screen" 


Else 
loX = apiShowWindow (hWndAccessApp, nCmdShow) 
End If 
End If 
fSetAccessWindow = (loX <> 0) 
End Function 


2. ني زر فتح النموذج الأساسي للقاعدة ضع الكود التالي في حدث فتح ١€م0 0١‏ 


fSetAccessWindow (SW _ SHOWMINIMIZED) 
fSetAccessWindow (SW _ HIDE) 
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إلغاء أوتعكين مفتاح ۴۲آ؟: 


MS Access: Re-enable the Shift key when logging into a secure database in Access 
2003/XP/2000/97 


Within your Access database, there is a Database Property called " Allow BypassKey". By 
default, your Access database sets this property to True and allows users to use the Shift key 
functionality when logging into a secured database. 


If you are unable to use the Shift key to bypass the Startup Options and display the Database 
window, the "AllowBypassKey" property has been set to False and you need to change it 
back to True. 


To do this, you need to run the following VBA code: 
Sub EnableShiftKeyO) 


Dim db As DAO.Database 
Dim prp As DAO.Property 


Set db = CurrentDb 

db.Properties.Delete "AllowBypassKey" 

Set prp = db.CreateProperty(" Allow BypassKey", dbBoolean, True, True) 
db.Properties. Append prp 


db.Properties.Refresh 


Set prp = Nothing 
Set db = Nothing 


End Sub 


You only need to run this code once and your database will re-enable the Shift key from that 
point on - even if the Access database is shutdown and restarted. 


Just make sure that when you run the code, you have Administrator privileges to the 
database. 


Tip: You may want to create a button on a form that allows you to enable or disable the Shift 
key. You can make the button visible to only certain users with the CurrentUser function. 


If after trying this example, you receive a "not defined" error on the "Dim db as 
DAO.Database" declaration, you will need to follow some additional instructions. 
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طريقة أخرى: 


SOLUTION » To prevent a user bypassing the start-up options you will need to apply the following function 
and code to a command button (or ideally a hidden option, such as to the double-click event of a label or 
graphic). 


This will prevent anyone without the password bypassing the start-up by using the Shift key. 


The below function and command button code will allow you to use a password protected input box to 
determine if the Shift key can be disabled or not. 


You might have to set your "References" in the VBA editor to DAO 3.6. 
When you are viewing a Module, click the Tools menu » References. Browse for Microsoft DAO 3.6 
Select "Files of type: Executable Files (*.exe; *.dll)" 
C:\Program Files\Common Files\Microsoft Shared\DAO) 
Then explicitly dimension yourcode, i.e. Dim db As DAO.Database, prp As DAO.Property 
T2 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F Code Start 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 
'Copy this function into a new public module. 
Option Compare Database 
Option Explicit 
Public Function SetProperties(strPropName As String, _ 
varPropT'ype As Variant, varProp Value As Variant) As Integer 
On Error GoTo Err SetProperties 
Dim db As DAO.Database, prp As DAO.Property 
Set db = CurrentDb 
db.Properties(strPropName) = varPropV alue 
SetProperties = True 
Set db = Nothing 
Exit _SetProperties: 
Exit Function 
Err SetProperties: 
If Err = 3270 Then 'Property not found 
Set prp = db.CreateProperty(strPropName, varPropType, varProp Value) 
db.Properties. Append prp 
Resume Next 
Else 


SetProperties = False 
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MsgBox "SetProperties", Err.Number, Err.Description 
Resume Exit _SetProperties 
End If 
End Function 


fof of fof of fof fff FF Code End FX FF 2k ok f 2k oke e of ok f f f 


Once you have created the module, then you will need to attach the following code to a command button (or 
label, graphic etc.): 


T2 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2R f Code Start 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2f 
'Assign this to the OnClick event of a command button (or double-click event 


'of a label or graphic) named "bDisableBypassKey" 


‘Change the "Type YourBypassPasswordHere" default password to your password 


Private Sub bDisableBypassKey_ClickO 
On Error GoTo Err_bDisableBypassKey_Click 
"This ensures the user is the programmer needing to disable the Bypass Key 
Dim strInput As String 
Dim strMsg As String 
Beep 
strMsg = "Do you want to enable the Bypass Key?" & vbCrLf & vbLf & _ 
"Please key the programmer's password to enable the Bypass Key." 
strInput = InputBox(Prompt:=strMsg, title:="Disable Bypass Key Password") 
If strInput = "Type YourBypassPasswordHere" Then 
SetProperties "Allow BypassKey", dbBoolean, True 
Beep 
MsgBox "The Bypass Key has been enabled." & vbCrLf & vbLf & _ 
"The Shift key will allow the users to bypass the startup & _ 
options the next time the database is opened.", _ 
vbInformation, "Set Startup Properties" 
Else 
Beep 
SetProperties "Allow BypassKey", dbBoolean, False 
MsgBox "Incorrect "Allow BypassKey" Password!" & vbCrLf & vbLf & _ 
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"The Bypass Key was disabled." & vbCrLf & vbLf & _ 
"The Shift key will NOT allow the users to bypass the & _ 
startup options the next time the database is opened.", _ 
vbCritical, "Invalid Password" 
Exit Sub 
End If 
Exit _bDisableBypassKey_Click: 
Exit Sub 
Err _bDisableBypassKey_Click: 
MsgBox "bDisableBypassKey_Click", Err.Number, Err.Description 
Resume Exit _bDisableBypassKey_Click 
End Sub 
Tf 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F Code End 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 
Once this is in place, a user will not have access to bypass the Start-Up options. 


As the administrator, you can then click on your command button, label or graphic and will be presented 
with the following input box: 


Gisable Bypass Key Password Edl 


Dn you want to enable the Bypass Key? 


Please key the programmer's password to e 
enable the Bypass Key, 


The Bypass Key has been enabled. 


The Shift key will allow the users to bypass the 
startup options the next time the database is opened, 


An incorrect password will give the following message and not allow the Shift key to bypass the Start-Up 
options: 


Inwalid Password 
Incorrect "Allow BypassKHEey'" Passwor dı! 
The Bypass Key mas disabled. 


The Shift key will MOT allows the users to bypass the 
startup options the next times the database is opened. 


Note: Always create a backup copy of the database, to test out any areas that may cause problems when 
working with start-up options or disabling Access features. 
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http://download.microsoft.com/download/d/2/a/d2a2fc8b-0447-491c-a5ef-e8aa3a74fb98/AccessRuntime.exe 
اضغط هنا‎ ı من موقع مایگروسوفت‎ ۸٥٥55 ہ۴‎ ٣٥ قم بتحمیل البرنامج‎ .1 

2. قم بتحمیل البرنامچ Access Developr Exons‏ من موقع مایکروسوفت 
http://download.microsoft.com/download/1/4/9/1492fd67-293a-4662-bbd8-6103b95f3729/AccessDeveloperExtensions.exe‏ 


_ ات فط هنا 


install a dat Ep Mîcrosott Office Access Developer 
Extensions COM Addin 


Press FI for more help. 
Save the Cul 


template (ACCOT). 


E3 Access Optioms Î [Ec Exit Access 1‏ [ 
وهذا الاختيار في القائمة لا يظهر إلا بعد تحميل البرنامج الثاي 


Package Solution Wizard 


Installation Options 


File to package: [ ا ا‎ 
Root install folder: | user AppData (Current User] 
Install subfolder: 1 mey. 


Example install location: |C:WUserslmasAppData Local" 


Pre1installation requirements: 
@ Require Microsoft Office Access 2007 ta be installed. 
(This file will be installed with its current file extension.) 


Require the Access 2007 Runtime to be downloaded if Access is not already installed. 
(The file will be installed with the ACCOR file extension and Access 2007 Runtime Support will be enabled.) 


Require nothing and install the Access 2007 Runtime. 

(The file will be installed with the ACCOR file extension and Access 2007 Runtime Support will be enabled.) 
Access 2007 Runtime setup package: | 

You can downlaad the latest setup package from here, 


Shortcut Options 


Install Locations: 
FW] Start Menu 


O] Besktap 


Shortcut name: 
Ican: 


Startup macro: 


Save Wizard Settings... 


لا تدسونا من صا الدعاء 
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